#!/usr/bin/perl
use strict;
use warnings;
use HTML::TableExtract;
use LWP::Simple;

my $url='http://www.targetscan.org/cgi-bin/targetscan/vert_61/targetscan.cgi?mirg=';
while(<DATA>){
	my $html=get($url.$_);
	my $te=HTML::TableExtract->new(attribs=>{border=>1});# only one table
	$te->parse($html);
	$"="\t";
	for my $ts($te->tables){
		for my $row($ts->rows){
			print "@$row[0,1,11,12]","\t$_\n";
		}
	}
}
__DATA__
hsa-mir-17
hsa-mir-18a
hsa-mir-19a
hsa-mir-20a
hsa-mir-19b
hsa-mir-92a
